Home

About this Site

This is a website to hold the maps created from Google Places API retrievals. You can look at each map by clicking on the site name in the Maps navigation menu above or by selecting a site from the list below.

Further information about the data collection methodology can be viewed in the R script here.

Business data is current as of December 15, 2017.

Site 1 - Koenig Ln

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

Site 2 - FM 973

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

Site 3 - Aquarena Springs Dr

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

Site 4 - TX-80

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

Site 5 - US-79/Palm Valley Blvd

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

Site 6 - FM 620

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

Site 7 - TX-29/University Ave

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

Site 8 - FM 1460/AW Grimes Blvd

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

Site 9 - FM 1431/Whitestone Blvd

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

Site 10 - FM 1431/Whitestone Blvd

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

Site 11 - FM 1431/Whitestone Blvd

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

Site 12 - FM 685

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

Site 13 - FM 685

Instructions

Hover over a point to see the name of the business. Click a point to see its address and a link to the business’s Google Maps page.

Map

Business Details

---
title: "Raised Median Maps"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: scroll
    theme: yeti
    source_code: embed
    favicon: favicon.png
---

```{r setup, include=FALSE}

# ABOUT THIS WEBSITE & SCRIPT: 
# This is a data processing script to create an RMarkdown website written by Michelle Plunkett in December 2017. 
# Michelle is a Graduate Student Worker at the Texas A&M Transportation Institute.
# She is a Master of Public Affairs candidate (Class of 2018) at UT Austin's LBJ School of Public Affairs.
# Contact Information: mplunkett@utexas.edu

if (!require("pacman")) install.packages("pacman")
pacman::p_load(viridis, flexdashboard, knitr)
pacman::p_load_gh('rstudio/leaflet','bhaskarvk/leaflet.extras','rstudio/DT')
wd <- "C:\\Users\\Michelle\\Documents\\Projects\\Raised Median Maps\\"
setwd(wd)

# Load Places Objects from previous script run (1:13 is number of sites total)
sites <- 1:13
for (i in 1:length(sites)) {
  load(file=paste0(wd,"Site_",i,".Rdata"))
  tmp <- get(paste0("Site_",i))
  tmp$Website <- paste0("",tmp$Website,"")
  paltemp <- colorFactor(rainbow(length(unique(tmp$Main_Type))), tmp$Main_Type)
  nam <- paste0("Site_",i)
  nam2 <- paste0("typepal",i)
  assign(nam, tmp)
  assign(nam2, paltemp)
}

# Labels
labels <- c("Site 1 - Koenig Ln", 
            "Site 2 - FM 973", 
            "Site 3 - Aquarena Springs Dr", 
            "Site 4 - TX-80", 
            "Site 5 - US-79/Palm Valley Blvd", 
            "Site 6 - FM 620",
            "Site 7 - TX-29/University Ave",
            "Site 8 - FM 1460/AW Grimes Blvd",
            "Site 9 - FM 1431/Whitestone Blvd",
            "Site 10 - FM 1431/Whitestone Blvd",
            "Site 11 - FM 1431/Whitestone Blvd",
            "Site 12 - FM 685",
            "Site 13 - FM 685")

# Create html widgets for each site
for (i in 1:length(sites)) {
  # Create all leaflet maps
  tmp <- get(paste0("Site_",i))
  temppal <- get(paste0("typepal",i))
  tempmap <- leaflet(data = tmp, width = "100%") %>%
              addTiles(urlTemplate = "https://mts1.google.com/vt/lyrs=s&hl=en&src=app&x={x}&y={y}&z={z}&s=G", 
                       group = "Google", attribution = 'Google') %>%
              addTiles(urlTemplate = "http://mt0.google.com/vt/lyrs=y&hl=en&x={x}&y={y}&z={z}&s=Ga", 
                       group = "Hybrid", attribution = "Google") %>%
              addProviderTiles("Esri.WorldImagery", group = "ESRI") %>%
              addCircleMarkers(~Longitude, ~Latitude, 
                   radius=9, 
                   fillColor = ~temppal(Main_Type), 
                   stroke=T, color = "#FFFFFF", opacity = 0.8, fillOpacity = 0.9, 
                   popup = ~paste(paste0("",
                                  tmp$Name,""),
                                  tmp$Full_Address,
                                  paste0("Place Type: ",
                                         tmp$Main_Type),sep="
"), label = ~as.character(tmp$Name), group = "Markers") %>% addLegend("bottomright", pal = temppal, values = ~Main_Type, labels = "Business Type ", title = "Business Types", group = "Legend") %>% addLayersControl(baseGroups = c("Google", "Hybrid", "ESRI"), overlayGroups = c("Legend"), options = layersControlOptions(collapsed = FALSE), position = c("topleft")) %>% addScaleBar(position="bottomleft", options = scaleBarOptions(metric=F)) %>% addSearchFeatures(targetGroups = "Markers", options = searchFeaturesOptions(zoom=19, autoCollapse = TRUE, hideMarkerOnCollapse = TRUE)) %>% addFullscreenControl() nam <- paste0("Site_",i,"_Map") assign(nam, tempmap) # Create all datatables temptable <- datatable(tmp[,c(1,8,10:11,6)], rownames = F, escape = FALSE, extensions = c("Buttons"), options = list( searchHighlight = TRUE, dom = "Bfrtip", buttons = list("colvis", list(extend = "collection", buttons = list( list(extend = "csv", title = paste0(gsub("/", "-", labels[i]))), list(extend = "excel", title = paste0(gsub("/", "-", labels[i]))), list(extend = "pdf", title = paste0(gsub("/", "-", labels[i])), orientation = "landscape")), text = "Download" )) )) nam2 <- paste0("Site_",i,"_Table") assign(nam2, temptable) } knitr::opts_chunk$set(echo = TRUE, fig.align="center") ``` Home ===================================== ### About this Site This is a website to hold the maps created from Google Places API retrievals. You can look at each map by clicking on the site name in the Maps navigation menu above or by selecting a site from the list below. - [Site 1 - Koenig Ln] - [Site 2 - FM 973] - [Site 3 - Aquarena Springs Dr] - [Site 4 - TX-80] - [Site 5 - US-79/Palm Valley Blvd] - [Site 6 - FM 620] - [Site 7 - TX-29/University Ave] - [Site 8 - FM 1460/AW Grimes Blvd] - [Site 9 - FM 1431/Whitestone Blvd] - [Site 10 - FM 1431/Whitestone Blvd] - [Site 11 - FM 1431/Whitestone Blvd] - [Site 12 - FM 685] - [Site 13 - FM 685] Further information about the data collection methodology can be viewed in the R script here. Business data is current as of December 15, 2017. ```{r, echo = FALSE, eval = TRUE} # Output the pages for each site (with map on top, datatable on bottom) out = NULL for (i in 1:length(sites)) { a1 <- paste0("\n\n",labels[[i]]," {data-navmenu='Maps'} \n") a2 <- paste0("===================================== \n\n") a3 <- "### Instructions \n" a4 <- "Hover over a point to see the name of the business. Click a point to see its address and a link to the business's Google Maps page. \n\n" a5 <- "### Map {.no-title } \n" a6 <- "\n\n```{r, echo=FALSE,fig.height=7,fig.align='center'}\n" # start r chunk a7 <- sprintf("\n Site_%d_Map", i) a8 <- "\n\n```\n\n" # end r chunk a9 <- "### Business Details \n" a10 <- "\n\n```{r cols.print=7, echo=FALSE}\n" # start r chunk a11 <- sprintf("\n Site_%d_Table", i) a12 <- "\n\n```\n\n" # end r chunk out <- c(out, knit_expand(text=paste0(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))) } ``` `r paste(knit(text = out), collapse = '\n')`